object DMCadastro2: TDMCadastro2
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 35
  Top = 254
  Height = 291
  Width = 936
  object DSCliente: TDataSource
    DataSet = QueryCliente
    Left = 133
    Top = 20
  end
  object QueryCliente: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'SELECT * FROM CLIENTE ORDER BY NOME')
    UpdateObject = IBUpdateSQLCliente
    Left = 37
    Top = 20
  end
  object IBUpdateSQLCliente: TIBUpdateSQL
    ModifySQL.Strings = (
      'update CLIENTE'
      'set'
      '    IDCLIENTE = :IDCLIENTE, '
      '    IDPRECLIENTE = :IDPRECLIENTE, '
      '    NOME = :NOME, '
      '    RAZAO_SOCIAL = :RAZAO_SOCIAL,'
      '    CONTATO = :CONTATO, '
      '    SETOR = :SETOR, '
      '    CPF_CNPJ = :CPF_CNPJ, '
      '    RG_IE = :RG_IE, '
      '    DATA_NASCIMENTO = :DATA_NASCIMENTO, '
      '    NOME_MAE = :NOME_MAE'
      'where'
      '   IDCLIENTE = :OLD_IDCLIENTE')
    InsertSQL.Strings = (
      'insert into CLIENTE'
      
        '  (IDCLIENTE, IDPRECLIENTE, NOME, RAZAO_SOCIAL, CONTATO, SETOR, ' +
        'CPF_CNPJ, RG_IE, DATA_NASCIMENTO, NOME_MAE)'
      'values'
      
        '  (:IDCLIENTE, :IDPRECLIENTE, :NOME, :RAZAO_SOCIAL, :CONTATO, :S' +
        'ETOR, :CPF_CNPJ, :RG_IE, :DATA_NASCIMENTO, :NOME_MAE)')
    DeleteSQL.Strings = (
      'delete from CLIENTE'
      'where'
      '  IDCLIENTE = :OLD_IDCLIENTE')
    Left = 236
    Top = 20
  end
  object QueryEnderecoCliente: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'Select *'
      'From Endereco')
    UpdateObject = IBUpdateSQLEndereco
    Left = 37
    Top = 74
  end
  object IBUpdateSQLEndereco: TIBUpdateSQL
    ModifySQL.Strings = (
      'update ENDERECO'
      'set'
      '    IDENDERECO = :IDENDERECO, '
      '    IDCLIENTE = :IDCLIENTE, '
      '    TELEFONE1 = :TELEFONE1, '
      '    TELEFONE2 = :TELEFONE2, '
      '    EMAIL = :EMAIL, '
      '    ENDERECO = :ENDERECO, '
      '    NUMERO = :NUMERO, '
      '    COMPLEMENTO = :COMPLEMENTO, '
      '    BAIRRO = :BAIRRO,'
      '    CEP = :CEP,'
      '    CIDADE = :CIDADE,'
      '    ESTADO = :ESTADO'
      'where'
      '   IDENDERECO = :OLD_IDENDERECO')
    InsertSQL.Strings = (
      'insert into ENDERECO'
      '  (IDENDERECO, IDCLIENTE, TELEFONE1, TELEFONE2, EMAIL,'
      '   ENDERECO, NUMERO, COMPLEMENTO, BAIRRO, CEP, CIDADE,'
      '   ESTADO)'
      'values'
      '  (:IDENDERECO, :IDCLIENTE, :TELEFONE1, :TELEFONE2, :EMAIL,'
      '   :ENDERECO, :NUMERO, :COMPLEMENTO, :BAIRRO, :CEP, :CIDADE,'
      '   :ESTADO)')
    DeleteSQL.Strings = (
      'delete from ENDERECO'
      'where'
      '  IDENDERECO = :OLD_IDENDERECO')
    Left = 236
    Top = 73
  end
  object DSEndereco: TDataSource
    DataSet = QueryEnderecoCliente
    Left = 136
    Top = 75
  end
  object QueryPedido: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'Select *'
      'From Pedido')
    UpdateObject = IBUpdateSQLPedido
    Left = 37
    Top = 130
  end
  object IBUpdateSQLPedido: TIBUpdateSQL
    InsertSQL.Strings = (
      'insert into PEDIDO'
      
        '  (IDPEDIDO, IDCLIENTE, IDVENDEDORA, IDENDERECO_CLIENTE, IDENDER' +
        'ECO_ENTREGA, DATA, HORA, NUMERO_PARCELAS, VALOR_PARCELA, VALOR_T' +
        'OTAL, DESCONTO, DATA_PRIMEIROPAGAMENTO)'
      'values'
      
        '  (:IDPEDIDO, :IDCLIENTE, :IDVENDEDORA, :IDENDERECO_CLIENTE, :ID' +
        'ENDERECO_ENTREGA, :DATA, :HORA, :NUMERO_PARCELAS, :VALOR_PARCELA' +
        ', :VALOR_TOTAL, :DESCONTO, :DATA_PRIMEIROPAGAMENTO)')
    DeleteSQL.Strings = (
      'delete from PEDIDO'
      'where'
      '  IDPEDIDO = :OLD_IDPEDIDO')
    Left = 236
    Top = 130
  end
  object DSPedido: TDataSource
    DataSet = QueryPedido
    Left = 134
    Top = 130
  end
  object QueryItemPedido: TIBQuery
    Database = DMConexoes.BDDados
    Transaction = DMConexoes.IBTransactionDados
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'select *'
      'from ITENS_PEDIDO')
    UpdateObject = IBUpdateSQLItemPedido
    Left = 37
    Top = 186
  end
  object IBUpdateSQLItemPedido: TIBUpdateSQL
    ModifySQL.Strings = (
      'update ITEM_PEDIDO'
      'set'
      '    IDITEM = :IDITEM, '
      '    IDPEDIDO = :IDPEDIDO, '
      '    IDPRODUTO = :IDPRODUTO, '
      '    PRECO_PRODUTO = :PRECO_PRODUTO, '
      '    QUANTIDADE = :QUANTIDADE, '
      '    DESCONTO = :DESCONTO'
      'where'
      '   IDITEM = :OLD_IDTEM')
    InsertSQL.Strings = (
      'insert into ITENS_PEDIDO'
      
        '  (IDITEM, IDPEDIDO, IDPRODUTO, PRECO_PRODUTO, QUANTIDADE, DESCO' +
        'NTO)'
      'values'
      
        '  (:IDITEM, :IDPEDIDO, :IDPRODUTO, :PRECO_PRODUTO, :QUANTIDADE, ' +
        ':DESCONTO)')
    Left = 236
    Top = 186
  end
  object DataSource1: TDataSource
    Left = 133
    Top = 186
  end
end
